Insert current date to file name (uses procedures)

<#> 
<#> This sample inserts current date to name of the selected file
<#> 
<#>
<cmds>

<proc_def_begin>(GetDateString, "&vDateString&"  )
   <varset>("vDateString=-%_vCurrDate_Year%-%_vCurrDate_MM%-%_vCurrDate_DD%","")
<proc_def_end>

<proc_def_begin>(InsertDateToFileName, "&vFileName&"  )
   <proc_call>(GetDateString,"vDateString")
   <var_oper>(vbLnt,"%vFileName%",STR_LENGTH,"","", "0")
   <begloop>(vbLnt)
      <var_oper>(vbInx,"%vbLnt%-%_vLoopCounter%",CALC_EXPRESSION,"0","", "0")
      <var_oper>(vbChar,"%vFileName%",STR_GET_CHAR,"vbInx","", "0")
      <if_str>("vbChar==.")
         <var_oper>(vFileName,"%vFileName%",STR_INSERT,"vbInx","%vDateString%", "0")
         <goto>("lbl_b_End")
      <endif>
   <endloop>
   <var_oper>(vFileName,"%vFileName%",STR_APPEND,"%vDateString%","", "0")
   <label>("lbl_b_End")
<proc_def_end>

<var_oper>(vFile,"",SELECT_FILE," ","", "0")
<if_str>("_vCanceled == 1") <exitmacro> <endif>
<proc_call>(InsertDateToFileName,"vFile")
<msg>(-100,-100,"vFile","Message",1)